<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><head><title>R: Galton's data on the heights of parents and their children,...</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" type="text/css" href="R.css">
</head><body>

<table width="100%" summary="page for GaltonFamilies"><tr><td>GaltonFamilies</td><td align="right">R Documentation</td></tr></table>

<h2>
Galton's data on the heights of parents and their children, by family
</h2>

<h3>Description</h3>


<p>This data set lists the individual observations for 934 children in 205 families
on which Galton (1886) based his cross-tabulation. 
</p>


<h3>Usage</h3>

<pre>data(GaltonFamilies)</pre>


<h3>Format</h3>


<p>A data frame with 934 observations on the following 8 variables.
</p>

<dl>
<dt><code>family</code></dt><dd><p>family ID, a factor with levels <code>001</code>-<code>204</code></p>
</dd>
<dt><code>father</code></dt><dd><p>height of father</p>
</dd>
<dt><code>mother</code></dt><dd><p>height of mother</p>
</dd>
<dt><code>midparentHeight</code></dt><dd><p>mid-parent height, calculated as <code>(father + 1.08*mother)/2</code></p>
</dd>
<dt><code>children</code></dt><dd><p>number of children in this family</p>
</dd>
<dt><code>childNum</code></dt><dd><p>number of this child within family. Children are listed in decreasing order
of height for boys followed by girls</p>
</dd>
<dt><code>gender</code></dt><dd><p>child gender, a factor with levels <code>female</code> <code>male</code></p>
</dd>
<dt><code>childHeight</code></dt><dd><p>height of child</p>
</dd>
</dl>



<h3>Details</h3>


<p>Galton's notebook lists 963 children in 205 families ranging from 1-15 adult children children.
Of these, 29 had non-numeric heights recorded and are not included here.
</p>
<p>Families are largely listed in decending order of fathers and mothers height.
</p>


<h3>Source</h3>


<p>Galton's notebook,
<a href="http://www.medicine.mcgill.ca/epidemiology/hanley/galton/notebook/">http://www.medicine.mcgill.ca/epidemiology/hanley/galton/notebook/</a>,
transcribed by Beverley Shipley in 2001.
</p>


<h3>References</h3>


<p>Galton, F. (1886). Regression Towards Mediocrity in Hereditary Stature
<EM>Journal of the Anthropological Institute</EM>, 15, 246-263
</p>
<p>Hanley, J. A. (2004). &quot;Transmuting&quot; Women into Men: Galton's Family Data on Human Stature.
<EM>The American Statistician</EM>, 58, 237-243.
See: <a href="http://www.medicine.mcgill.ca/epidemiology/hanley/galton/">http://www.medicine.mcgill.ca/epidemiology/hanley/galton/</a> for source materials.
</p>


<h3>See Also</h3>


<p><code>Galton</code>,
<code>PearsonLee</code>
</p>


<h3>Examples</h3>

<pre>
data(GaltonFamilies)
str(GaltonFamilies)

## reproduce Fig 2 in Hanley (2004)
library(car)
scatterplot(childHeight ~ midparentHeight | gender, data=GaltonFamilies, 
    ellipse=TRUE, levels=0.68, legend.coords=list(x=64, y=78))

# multiply daughters' heights by 1.08
GF1 &lt;- within(GaltonFamilies, {childHeight &lt;- ifelse (gender=="female", 1.08*childHeight, childHeight)} )
scatterplot(childHeight ~ midparentHeight | gender, data=GF1, 
    ellipse=TRUE, levels=0.68, legend.coords=list(x=64, y=78))

# add 5.2 to daughters' heights 
GF2 &lt;- within(GaltonFamilies, {childHeight &lt;- ifelse (gender=="female", childHeight+5.2, childHeight)} )
scatterplot(childHeight ~ midparentHeight | gender, data=GF2, 
    ellipse=TRUE, levels=0.68, legend.coords=list(x=64, y=78))

</pre>


</body></html>
